# Ɨf
chib <- 9264.393
dfb <- 20
N <- 400
(RMSEA <-sqrt(((chib/dfb)-1)/(N-1)))


# LGCf
chi <- 138.017
df <- 6
N <- 400
(RMSEA <-sqrt(((chi/df)-1)/(N-1)))

(TLI <- ((chib/dfb)-(chi/df))/((chib/dfb)-1))
